home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 25.d (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  916b  |  24 lines
  1. 10 rem ********************************
  2. 15 rem * programm zum aendern von     *
  3. 20 rem * diskname und id              *
  4. 25 rem ********************************
  5. 30 print"[147]disk-utility 1                          [146]";
  6. 35 print"     disk-name aendern   -  '1'
  7. 40 [153]"     disk-id   aendern   -  '2'
  8. 42 print"     ende                -  '3'
  9. 45 [161]x$:[139]x$[179][177]"1"[175]x$[179][177]"2"[175]x$[179][177]"3"[167]45
  10. 46 [139]x$[178]"3"[167][153]"*** fertig ***":[128]
  11. 50 [159]15,8,15:[143] floppykanal oeffnen
  12. 55 [152]15,"i0":[159]1,8,3,"#":[152]15,"u1:3"0",18,0":[139]x$[178]"1"[167]90
  13. 60 [152]15,"b-p:3,162":[161]#1,a$,b$,c$,d$,e$:[153]"alter disk-id ist  ";a$;
  14. 65 [153]b$;c$;d$;e$:[133]"neuer disk-id ";f$
  15. 70 [139][195](f$)[179][177]4[167]f$[178][200](f$[170]"      ",5)
  16. 75 [152]15,"b-p:3,162":[152]1,f$;:[152]15,"u2:3"dv",18,0
  17. 80 i$="i"+mid$(str$(dv),2):print#15,i$
  18. 85 run
  19. 90 print#15,"b-p:3,144":r$="":forl=1to16:get#1,a$:r$=r$+a$:nextl
  20. 95 print"alter disk-name ist ";""r$"[146]"
  21. 100 input"neuer disk-name ";ne$
  22. 105 ne$=left$(ne$+"              ",16)
  23. 110 print#15,"b-p:3,144":print#1,ne$;:print#15,"u2:3"dv",18,0":goto80
  24.